home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D07.D64 / disk sleeve make (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  64 lines
  1. 10 DIMP$(24)
  2. 20 POKE53280,0:POKE53281,0
  3. 30 GOSUB 160
  4. 40 OPEN4,4,7
  5. 50 PRINT#4,"[176][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][174]"
  6. 60 PRINT#4,"[221]      [221]"+N$+"[221]      [221]"
  7. 70 PRINT#4,"[221]      [221]                                                      [221]      [221]"
  8. 80 FORL=0 TO 21:PRINT#4,"[221]      [221]"+P$(L)+"[221]      [221]":NEXT
  9. 90 PRINT#4,"[173][192][192][192][192][192][192][179]                                                      [171][192][192][192][192][192][192][189]"
  10. 100 PRINT#4,"       [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  11. 110 FORL=1 TO 28
  12. 120 PRINT#4,"       [221]                                                      [221]"
  13. 130 NEXT
  14. 140 PRINT#4,"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 150 CLOSE4:RETURN
  16. 160 PRINT"[147][196][201][211][203][160][211][204][197][197][214][197][160][205][193][203][197][210]"
  17. 170 PRINT"BY [211][212][197][214][197][206][160][194][213][210][199][197][211][211]"
  18. 180 PRINT"FOR [195][207][205][205][207][196][207][210][197][160][196][201][211][203][160][213][211][197][210]"
  19. 190 PRINT"[205][197][206][213]"
  20. 200 PRINT"1..[197][206][212][197][210][160][208][210][207][199][210][193][205][211]"
  21. 210 PRINT"2..[208][210][201][206][212][160][211][204][197][197][214][197]"
  22. 220 PRINT"3..[197][206][196]
  23. 230 [153]"(null)VAL(null)VALLEN(null)CLOSE(null)(null)(null)RIGHT$(null)(null)"
  24. 240 [161]A$:[139]A$[178]""[167]240
  25. 250 [139] A$[179]"1" [176] A$[177]"3"[167]240
  26. 260 [139] A$[178]"3"[167] [153]"LOAD":[128]
  27. 270 [139] A$[178]"1"[167] [141]310
  28. 280 [139] A$[178]"2"[175] SE[178]0 [167] [153]"LOAD(null)(null)CLOSE(null)(null)(null)CHR$(null)CLOSEVAL(null)(null)VAL(null)VALSTR$":[129]L[178]1[164]1000:[130]:[138]
  29. 290 [139] A$[178]"2"[175] SE[178]1 [167] [141]40
  30. 300 [137] 160
  31. 310 [153]"LOAD";:[159]15,8,15
  32. 320 [159]8,8,8,"#"
  33. 330 [152]15,"U1";8;0;18;0
  34. 340 [152]15,"B-P";8;144
  35. 350 [129]L[178]1 [164] 16:[161]#8,A$:N$[178]N$[170]A$:[130]
  36. 360 [153]"STR$RIGHT$(null)(null)CLOSE(null)ATN(null)VAL:"N$
  37. 370 [139] [195](N$)[179]54 [167] N$[178]N$[170]" ":[137] 370
  38. 380 TR[178]18:SE[178]1
  39. 390 [152]15,"U1";8;0;TR;SE:[152]15,"B-P";8;0
  40. 400 [161]#8,TR$:[161]#8,S$
  41. 401 [139] TR$[178]""[167]TR$[178][199](0)
  42. 410 [153]"(null)(null)(null)CHR$CLOSE(null)RIGHT$(null)(null)"
  43. 420 [153]"---------"
  44. 430 [152]15,"U1";8;0;TR;SE
  45. 440 [129]L[178]1 [164] 8
  46. 450 [152]15,"B-P";8,((L[171]1)[172]32)[170]5
  47. 460 [129]S[178]1 [164] 16:[161]#8,A$:F$[178]F$[170]A$ :[130]
  48. 470 [139] F$[178]""[167] 540
  49. 480 [153]"LOAD"F$
  50. 490 [153]"INCLUDE IN LIST (Y/N)"
  51. 500 [161]A$:[139]A$[178]""[167]500
  52. 510 [139] A$[178]"N"[167] 540
  53. 520 [139] A$[179][177]"Y"[167] 500
  54. 530 [139][195](P$(W))[179]37[167]P$(W)[178]P$(W)[170]F$[170]"  ":[137] 540
  55. 535 [139] [195](P$(W))[177]37 [167] W[178]W[170]1:[137] 530
  56. 540 F$[178]"":[130]
  57. 550 TR[178][198](TR$):SE[178][198](S$):
  58. 560 [139] TR[178]0 [175] SE[178]255 [167] [137] 580
  59. 570 [137] 390
  60. 580 [153]"LOAD(null)(null)VALATN(null)VALCLOSE(null)ATNRIGHT$(null)CLOSE: ASC(null)(null)(null)ATN(null)(null)RIGHT$(null)CHR$CLOSESTR$ATN(null)ATN":[129]L[178]0 [164] 21
  61. 590 [139] [195](P$(L))[179]54 [167] P$(L)[178]P$(L)[170]" ":[137] 590
  62. 600 [130]
  63. 610 [160]8:[160]15:SE[178]1:[142]
  64.